home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / DECPREC.RATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  495b  |  18 lines
  1. 10  PRINT "DEPRECIATION RATE"
  2. 20  PRINT 
  3. 30  PRINT "ORIGINAL PRICE";
  4. 40  INPUT P
  5. 50  PRINT "RESALE PRICE";
  6. 60  INPUT T
  7. 70  PRINT "YEARS";
  8. 80  INPUT Y
  9. 89  REM  - REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT
  10. 90 D = 100 *(1 -(T/P) ^(1/Y))
  11. 99  REM  - ROUND OFF, PRINT
  12. 100  PRINT "DEPRECIATION RATE ="; INT(1000 *D +.5)/1000;"%"
  13. 110  PRINT 
  14. 119  REM  - RESTART OR END PROGRAM?
  15. 120  PRINT "MORE DATA (1=YES, 0=NO)";
  16. 130  INPUT X
  17. 140  IF X = 1  THEN 20
  18. 150  PRINT "<CTRL-D>RUNHELLO"